home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / A-Newest / TORPET.d64 / g.i.r.-instr. (.txt) < prev    next >
Commodore BASIC  |  2009-10-12  |  2KB  |  53 lines
  1. 1 POKE36879,8:PRINT"[147]     [214][201][195] [199].[201].[210].[146]
  2. 2 [153]"(null)HIS IS A MACHINE     LANGUAGE, INTERRUPT   DRIVEN CHR$AME RIGHT$NPUT     (null)OUTINE.
  3. 3 PRINT"[212]HE [199][201][210] WILL ACCEPT   INPUT FROM EITHER THE KEYBOARD OR THE JOY-  STICK.
  4. 4 [153]"(null)HIS IS DECIDED AT (null)(null)(null)TIME, SO YOU CAN GIVE THE PLAYER THE CHOICE.
  5. 5 GOSUB49
  6. 6 PRINT"[147][217]OU CAN ALSO TELL THE [199][201][210] WHETHER THE INPUT IS TO BE 'REMEMBERED'.";
  7. 7 PRINT"[212]HIS IS CALLED LATCHEDINPUT.
  8. 8 [153]"(null)HEN THE INPUT IS (null)(null)(null) LATCHED, IT RETURNS TOLENVAL(null)(null)VAL(null) IF NO DIRECTION";
  9. 9 [153]"IS INDICATED.
  10. 10 PRINT"[212]HE [199][201][210] AS SUPPLIED ONTHIS TAPE STARTS WITH LINE# 63000.
  11. 11 [153]"ATNS IT WILL BE APPENDEDTO YOUR PROGRAM, YOUR PROGRAM MAY (null)(null)(null) HAVE
  12. 12 PRINT"LINE#'S GREATER THAN  62999.
  13. 13 [141]49
  14. 14 [153]"LOAD(null)O ADD THE CHR$RIGHT$(null) TO YOURPROGRAM:
  15. 15 PRINT"[198]IRST [204][207][193][196] YOUR PRO-  GRAM INTO THE [214][201][195],    THEN CLEAR THE SCREEN
  16. 16 [153]"AND ENTER:
  17. 17 PRINT"[208][210][201][206][212][160][208][197][197][203](43)[208][197][197][203](44)
  18. 18 [153]"(null)RITE DOWN THE TWO    NUMBERS THAT THE (null)RIGHT$LEN  HAS PRINTED ON THE
  19. 19 PRINT"SCREEN, THEN ENTER:
  20. 20 [153]"RIGHT$=(null)VALVAL(null)(45)+(null)VALVAL(null)(46)*256-2:RIGHT$%=RIGHT$/256:(null)(null)(null)VAL43,RIGHT$-RIGHT$%*256:(null)(null)(null)VAL44,RIGHT$%
  21. 21 GOSUB49
  22. 22 PRINT"[147][206]OW [204][207][193][196] [214][201][195][160][199].[201].[210].
  23. 23 [153]"(null)HEN (null)(null)(null)VAL THE TWO NUM-BERS YOU WROTE DOWN   EARLIER INTO LOCATIONS43 AND 44.
  24. 24 PRINT"[206]EXT ENTER [210][213][206]63000 TO[204][201][206][203] THE [199][201][210] TO YOUR  PROGRAM, THEN [196][197][204][197][212][197]
  25. 25 [153]"LINES 63000 AND ON.
  26. 26 PRINT"[206]OW THE ACTUAL MACHINELANGUAGE ROUTINE IS   STUCK TO THE END OF
  27. 27 [153]"YOUR PEEKATN(null)RIGHT$LEN PROGRAM.
  28. 28 GOSUB49
  29. 29 PRINT"[147][212]O USE THE [214][201][195][160][199].[201].[210].:
  30. 30 [153]"(null)(null)(null)(null)VALVAL(null)(45)+(null)VALVAL(null)(46)*256-30 TO LINK THE CHR$RIGHT$(null) TO THE INTERRUPT HAND-LER.
  31. 31 PRINT"[211]ELECT THE FEATURES   YOU WANT AND [193][196][196] THE  REQUIRED VALUES INTO
  32. 32 [153]"LOCATION 155.
  33. 33 GOSUB49
  34. 34 PRINT"[147][197]XAMPLE:
  35. 35 [153]"(null)O SELECT LATCHED IN- PUT FROM THE JOYSTICK
  36. 36 PRINT"WITHOUT DIAGONALS:    [208][207][203][197]155,1+128.
  37. 37 [153]"MID$OYSTICK=1
  38. 38 PRINT"[196]IAGONALS=64
  39. 39 [153]"(null)ATCHED INPUT=128
  40. 40 PRINT"[196]IAGONALS ARE NOT POS-SIBLE WITH KEYBOARD   INPUT.
  41. 41 [141]49
  42. 42 [153]"LOAD(null)HE INPUT WILL BE     STORED IN LOCATIONS   156, 158 AND 159.
  43. 43 PRINT"156 = FIRE BUTTON/KEY 0=OFF 1=ON
  44. 44 [153]"158 = VERTICAL        0=UP 1=CENTER 2=DOWN
  45. 45 PRINT"159 = HORIZONTAL      0=LEFT 1=CENTER       2=RIGHT
  46. 46 [153]"(null)EYBOARD INPUT:
  47. 47 PRINT"[208]=UP [204]=LEFT ;=RIGHT   .=DOWN [211][200][201][198][212]=FIRE
  48. 48 [128]
  49. 49 [153]"LEFT$RIGHT$(null)CLOSEATNCLOSE(null)VAL(null)CLOSE(null)(null)CLOSELEN(null)(null)(null)RIGHT$(null)(null)VAL";
  50. 50 [161]A$:[161]A$
  51. 51 [161]A$:[139]A$[178]""[167]51
  52. 52 [142]
  53.